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MODULE BASSEND_DFS ( ; 
Po = *1-004" : File: BASENDDFS.832 Edit:MDL1004 


BEGIN 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
L RIGHTS RESERVED. 


7 ne IS FURNISHED ueoete A nt OF AND MAY BE USED AND coriee 
IN Se ke WITH THE SUCH LICENSE a WITH THE 
5 USION OF THE ABOVE COPYRi cut ENOTIC # THIS sort ARE OR ANY OTHER 

OPIES THEREOF 4 Tk BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
HER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!* CORPORATION. 


e Hd ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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OWDNA VE WN $0 ODN NEW OOOO EW “OOONOUS WN 


00 i 
00 
0031 ‘oe 
00 § ! FACILITY: BASIC=-PLUS-2 Frame Support 
89 , i ABSTRACT: 
st] These routines set up and tear down frames for 5 + acl 
4 Frames are used for main routines, external funct 
8 external subroutines, internal functions (both DEFS. one DEF *s) 
st internal subroutines (GOSUBs) and condition handlers. 
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: ENVIRONMENT: VAX-11 user mode 
: AUTHOR: John Sauter, CREATION DATE: 10-Oct-78 
! 

' 

' 

' 
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' 
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° 
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i MODIFIED BY: 
i : VERSION 


SErrere 


1-001 - Original. This is just a skeleton 
5 1-002 - phange 1B$S and OTS$S to STR$. JBS 21-MAY-1979 
5 1-005 = Code this routine besed on BASSEND DEF. JBS 03-AUG-1979 
5 1-004 - at FNEWITFUN for kinds of frames that we  hney phous . getter 
3 than simply signalling PROLOSSOR Dlindly. 2-Feb-19 
5 
05 : 
005 ! <BLF /PAGE> 


ated 
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SVN 
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dD 6 
VerSepatone $1:84583 — Foasate gaeSeagenooes 


SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


LINKAGES: 


Ll 
REG] R = 1, REGISTER = 2) : : 
OBAL (BSFSA_MAJOR_STG T . 
NOPRESERVE (8; 7, 6, 5, é STG = 10 BSF $A_TEAP_ S16 = 9) : 
REQUIRE “*RTLIN:STRLNK'; ! String facility Linkages 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSEND_DFS_R8& : NOVALUE BASSINIT_LINK; ! end DEF® 


INCLUDE FILES: 


REQUIRE *RTLIN:RILPSECT'; 
REQUIRE *RTLIN:BASFRAME*; 
REQUIRE *RTLIN:BASINARG'; 


macros for defing psects 


Define frame structure 


Define argument List 


MACROS: 
: NONE 
3 EQUATED SYMBOLS: 
NONE 
: PSECTS: 
DECLARE _PSECTS (BAS); 
! OWN STORAGE: 
NONE 
EXTERNAL REFERENCES: 


declare psects for BASS facility 
! 
i 
i 
i 
i 


EXTERNAL ROUTINE 
BAS$S$STOP : NOVALUE 
STRSFREE1_DX_R4 : STRSJSB_GETFRE, 


signals error 
Deallocate a string 


82:1 


-—- 


prencencers 
| * SEND_DFS 


—_ a  — — — _ —- 4 — 4 _s -4 


MRIPORIPOPOPORoTNn S 
OONOA NEW OOOO 


BA ASSSUNWIND : NOVALUE, 
BASSHANDLER; 


'¢ 


p-19 
5 19 
' 
i 


ts 94 82585 


AX-11 Bliss-32 v4.0 
BASRTL.SRC BASENDOFS. 5 2;1 


Unwind a frame 
Marker for BASIC frame 


The following are the error codes used in this module. 


-RETWITGOS : UNSIGNED (8), 
0687 BASSK_PROLOSSOR : UNSIGNED (8), 
06 BASSK_NOTIMP : UNSIGNED (8), 
0689 BASSK_FNEWITFUN : UNSIGNED (8), 
0690 BASSK-ERRTRANEE : UNSIGNED (8); 


1 
1 
1 
1 
¢ 1 
:* 
5 : —— LITERAL 
1 
1 
1 
1 
1 


RETURN without GOSUB 
A tee lost, sorry 
Not implemented 
FNEND without FUNCTION CALL 


' ERROR trap needs RESUME 
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SE2S3SFE8 


PIPIDIMPIPIPIPININIDINIM NINA a 8 de 


Mew 


SANS 


SAN 
MEW $9 OONOUE WN "0 O@VNOU SW O000 
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16-Sep-19 AX-11 at =32 v4.0-74 
1$-se0-1984 99: gf: g BASRTL. SRC BASENDDFS.832; 
GLOBAL rie BASSEND_DFS_RB ( ! end of DEF® frame 
ARGLIST ! arg list used to set up the frame 
) : NOVALUE BASSINIT_LINK = 


‘ee 


i FUNCTIONAL DESCRIPTION: 


Tear down a frame for a BASIC-PLUS=-2 DEF®*. 
ALL ogg FB forage is deallocated. The argument is the same 
as for BASSINIT_DFS_R8, for validity checking. 


FORMAL PARAMETERS: 
ARGLIST.ra.v List of information us8/VA set up the 


frame. See BASIC=-PLUS-2/VAX bese? tet ten 
of Generated Code for details. 


IMPLICIT INPUTS: 
The frame, as set up by BASSINIT_DFS_R8. 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
Deallocates the heap storage local to this DEF®. 


BEGIN 
—— ages TER 
MAJOR_STG : REF BLOCK (0, pyre 

BSF SA-MINOR STG : REF pore 0; 

BSFSA_TEMP_STG : REF VECTOR; 
BUILTIN 

FP; 

ARGLIST : REF BLOCK CO, BYTE) FIELD (BASSINIT_ARGS); ! arg list 
REGISTER 


FMP : REF BLOCK (CO, BYTE) FIELD (BSFSFCD) ' pointer to FCD 
PREV_FMP : REF BLOCK CO, BYTE) FIELD (BSFSFCD); | previous FCD 


s 
‘ 
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ooo 
wr 
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SSLESFANLSSELESR 


DIDI et nt et et ot ot os ot ot 


MEW 0 OOWVWOV FW “OO OOVO Uv Fwun—oO 


DONO US WOOD 


1Scseoctgee 90:32:96 


! First cut back any oss frames. 
; g sible except on AA, 


he GOSUB frame inv 
FMP = FP; 
—. me CBSFSB_PROC_CODE] EQL BSFSK_PROC_GOSB) DO 


de 
i we have a GOSUB frame, remove it. Note we do not restore any 
; registers it might have saved. 


BASSSUNWIND 
PREV_FMP = ti mteer sa. SAVED_FPI; 


tia CBSFSA_HANDLER] NEQA BASSHANDLER) 


'¢ 

i The previous frame is not a BASIC frame. This is unreasonable 

; praee Soeuee should only be callable from inside a BASIC main 
Proce ure. 


BASSSSTOP (BASSK_RETWITGOS); 
FMP = .PREV_FMP; 
END 


'¢ 
Make sure this is a DEF frame. 


CASE FAP [BSFSB_PROC_CODE] FROM BSFSK_PROC_MAIN TO BSFSK_PROC_IOL OF 
CBSFSK_PROC_ONER) : 


BASSSSTOP (BASSK _ERRTRANEE); 
CBSFSK_PROC_DEFS) : 
EGIN 


(BSFSK PROC MAIN, BSFSK PROC SUB, BSFSK_PROC_DEFJ : 
BASSSSTOP (BASS$K_FNEWITFON); 


cManSs OUTRANGE 
$sTOP (BAS * PROLOSSOR); 


'¢ 

i Check to be sure that this is the correct exit. This should 
! only fail if the user branches from one DEF* into the body of 
i another. 

eal CBSFSA_INIT_ARG) NEQA .ARGLIST) 


'¢ 


AX-11 Bliss- 
BASRTL.SRC 


ait v4.0-74 
NObES 682:1 


BASE 


4.0- 


Page 


; 
E 


i. correspond to the entry. gnal an error. 
BASSSSTOP (BASSK_FNEWITFUN); 


‘6 
Deallocate any temporary string storage. 


INCR COUNTER FROM 1 TO Tre i (8 res 
STR 


'¢ 
: Deallocate local dynamic strings. 


'¢ 


FP = .FMP; 
RETURN; 
END; 
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bb 000C 
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} 
OA 
06 23: 
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 O008 a8: 


000000006 


OoOProvwnru! 


000000006 


PON = M@MVOU" NOUS 
te 


: 
0 006 


m 
“ 
—Po 


001¢ 00 


egginers ire: 


! The argument Lists are a the same address. 


1986 99:82:83 EBASRTL oSAeSeASeNDors..082:1 


This exit must not 


INCR COUNTER FROM 1 ye, Py LIST CBAS$W_IN_NO_DST) D 
STRSFREE1_DX_R4 BSFSA_STR_DESC] +7 ( TEUPVAL®(. COUNTER = 1))); 


*EXTRN 
-PSECT 


DO 00000 BASSEND_DFS_R8:: 


vC 


IN_NO_TST 
FREE1_DX_R4 (BSFSA_TEMP_STG L(7 LOONTER eon: 


i ALL done. The ‘RET’ instruction done by the compiled code 
& will cut back the stack, so we don't need to do it here. 


! of BASSEND_DFS_R8 


BASSEND_DFS 
\1-004\~ 


BASSSSTOP, STRSFREE1 DX_R4 
B UNWIND, BASSHANDLER 

SSOR 
BAS K-NOTIMP. BASSK_FNEWITFUN 
BASSK7 “ERRTRANEE 
BASSCODE.NOWRT, SHR, PIC,2 


RO, R7 
FP. FMP 
g7CFMPD aA 


SSUNWIND 
BL EA. 
. RO 
Hos ‘Aereeos. ~(SP) 
Pass STOP 


aa wi, a7 
7$-4$,- 
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-——— meusiieanitsinemeinagnenttinnte nnn os seobemneetsiiatan nel 


“BASSEND_DFS Ibese “1 AX-11 Bliss-32 v4.0-74 P 7 

bei meeen 188s PRiSEi8s | Hosa Oe ekgeNars 682.1 sh 
| 0010 0016 0010 0027 00042 48. , : 
$-4$.- ; 
-4 e* Ps 
35-¢5"- ; 
ee ; 

7e 006 f 9 A S$: mOvZBL S$$K_PROLOSSOR, =(SP) ; 07% 

7E 006 8F 9A 68: MOVZBL ASSK_ERRTRANEE, =(SP) ; 0783 

? 006 8F 9A MOVZBL ABASSt FNEWITFUN, =(SP) + 0791 

. of D8 AS of HH fape planes + 0803 

Q : | 

E 006 BF 9A ; ROVEBL #BA NEWITFUN, =(SP) : 0809 
000000006 0 1 FB CALLS ai BASSSS TOP : 

6 0 108:  CLAL + 0816 
50 1 Fe 00006 118: Asm af, COUNTER, RO : 
36 rth "08 § O7A 3 MOVAL cetgseea ches $TG)CROJ, RO ; 
EC 30. A? £3 00085 12$:  AOBLEQ 4B CARGLIST) “COUNTER, 118 : 

8 A? 3 O008A MOVZWL 40CARGLI ; 0822 

a a Net 
£0 8546 7E 00092 13$:  MOVAQ a@-32(FMP)CCOUNTERI, RO : 
000000006 i O09A tt MM tt ee : 
EE 6 F3 OOOAO 14$: AOBLEQ R7, COUNTER, ~13$ F 

D 5 06 O0A4 MOVL FMP, FP ; 08 
OOA7 RSB 3; 08351 


; Routine Size: 168 bytes, Routine Base: _BASSCODE + 0000 


HRT ao 

> 27 0834 1 

3; 276 0835 0 ELUDOM 

3 PSECT SUMMARY 

: Name Bytes Attributes 


-BASSCODE 168 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


BASEENDOFS -abteame 00:22:24 YaNeIT BLisg=82 v4.0-742, | Page 


; COMMAND QUALIFIERS 
BLISS/CHECK=CFIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:BASENDDF $/0B)=08/$ :BASENDDF S MSRC$: BASENDDF S/UPDATE=(ENHS$ : BASENDDF S 


piee: | + 0 data bytes 
Run T 1 
eke, 326" 
tty Min: 

Neem Nk gay | 


Memor a $ 
et hey at 
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